VtPushButton object_name [options]
Creates a PushButton. Label class options are used to label the button. Returns the PushButton widget name.
Additional callback keys
The following code produces four PushButtons.
set app [VtOpen PushButtons] set form [VtFormDialog $app.form -title "VtPushButton Demo" ] VtPushButton $form.but1 \ -leftSide FORM \ -rightSide FORM \ -label "Apples" VtPushButton $form.but2 \ -leftSide FORM \ -rightSide FORM \ -label "Oranges" VtPushButton $form.but3 \ -leftSide FORM \ -rightSide FORM \ -label "Bananas" VtPushButton $form.but4 \ -leftSide FORM \ -rightSide FORM \ -label "Kumquats" VtShow $form VtMainLoop
This code produces the following:
See also: